home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 1 / PC Actual CD 01.iso / share / dos / graficos / plydat14.arj / SUPERQ.PI < prev    next >
Encoding:
Text File  |  1992-04-05  |  804 b   |  39 lines
  1. // Sample transcendental surface.  This is a basic superquadric shape (a pinchy)
  2. // There seems to be a problem with the shading, and there are severe holes
  3. // at the edges.
  4. // Polyray input file - Alexander Enzmann
  5.  
  6. // Set up the camera
  7. viewpoint {
  8.    from <0, 5, -5>
  9.    at <0,0,0>
  10.    up <0,1,0>
  11.    angle 30
  12.    resolution 160, 160
  13.    }
  14.  
  15. // Set up background color & lights
  16. background SkyBlue
  17. light <10,10,-10>
  18.  
  19. define shiny_red
  20. texture {
  21.    surface {
  22.       ambient red, 0.2
  23.       diffuse red, 0.6
  24.       specular white, 0.8
  25.       microfacet Reitz 10
  26.       }
  27.    }
  28.  
  29. define unit_sphere
  30.    object { sphere <0,0,0>, 1 }
  31.  
  32. // Define a superquadric surface
  33. object {
  34.    function |x|^0.75 + |y|^0.74 + |z|^0.75 - 1
  35.    shiny_red
  36.    bounds unit_sphere
  37.    rotate <0, 30, 0>
  38.    }
  39.